﻿Public Class Form20
    Public udd As IUltraDropDown

    Public Sub New()
        ' This call is required by the designer.
        InitializeComponent()
        ' Add any initialization after the InitializeComponent() call.
        Me.IUltraDropDown1.DataSource = Me.Tbl_thuBindingSource
        Me.IUltraGrid1.DataSource = Me.Tbl_testBindingSource
    End Sub
    Private Sub Form20_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        Me.Tbl_testTableAdapter.Fill(Me.Test4DataSet.tbl_test)
        Me.Tbl_thuTableAdapter.Fill(Me.Test4DataSet.tbl_thu)
        Me.IUltraGrid1.DataSource = Me.Tbl_thuBindingSource
        Me.IUltraDropDown1.DataSource = Me.Tbl_thuBindingSource
        Me.IUltraGrid1.setGiaoDienVua()
    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim f As Form21 = New Form21(IUltraDropDown1, IUltraGrid1, Tbl_thuBindingSource, Me.Test4DataSet.tbl_thu, Me.Tbl_thuTableAdapter)
        f.Show()
    End Sub
End Class